From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 29 Aug 2003 16:12:38 +0000 (+0000)
Subject: (mail-abbrevs-sync-aliases): Do nothing if mail-personal-alias-file is nil.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~25683
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=f061359142f10b917a15be28460769408292361a;p=emacs.git

(mail-abbrevs-sync-aliases): Do nothing if mail-personal-alias-file is nil.
---

diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el
index b2edf777861..743f909f5d6 100644
--- a/lisp/mail/mailabbrev.el
+++ b/lisp/mail/mailabbrev.el
@@ -161,12 +161,13 @@ no aliases, which is represented by this being a table with no entries.)")
   "The modification time of your mail alias file when it was last examined.")
 
 (defun mail-abbrevs-sync-aliases ()
-  (if (file-exists-p mail-personal-alias-file)
-      (let ((modtime (nth 5 (file-attributes mail-personal-alias-file))))
-	(if (not (equal mail-abbrev-modtime modtime))
-	    (progn
-	      (setq mail-abbrev-modtime modtime)
-	      (build-mail-abbrevs))))))
+  (when mail-personal-alias-file
+    (if (file-exists-p mail-personal-alias-file)
+	(let ((modtime (nth 5 (file-attributes mail-personal-alias-file))))
+	  (if (not (equal mail-abbrev-modtime modtime))
+	      (progn
+		(setq mail-abbrev-modtime modtime)
+		(build-mail-abbrevs)))))))
 
 ;;;###autoload
 (defun mail-abbrevs-setup ()